home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
demo
/
_xygraf.zip
/
CALENDAR.VEC
< prev
next >
Wrap
Text File
|
1995-03-02
|
2KB
|
109 lines
ADDZOOM(1,1)
/*PLAY("bird.vec")
PLAY("reset.vec")
ZOOM(0.3, 0.3)
font("trip.chr")
' Parameters: left, top, year
' 0 if not visocose (1980 was)
style(1,15)
RECTANGLE(0,1200,2000, 2200)
@CALENDAR(100, 1300, 1995, 0)
*/
style(1, 15);
fill(1);
'zoom(0.1, 0.05);
rectangle(0, 0, 640, 480);
scroll(1800, 500);
play("bird.vec");
scroll(0, 500);
zoom(0.35, 0.33);
color(BLACK);
font("trip.chr");
@calendar(80, 120, 1995, 0);
END
@CALENDAR(l, t, year, v)
day = 7
IF year = 1996 THEN day = 1 ENDIF
x = l: y = t + 15
FOR i = 1 TO 3
TEXT(x, y, "Mo")
y = y + 30
TEXT(x, y, "Tu")
y = y + 30
TEXT(x, y, "We")
y = y + 30
TEXT(x, y, "Th")
y = y + 30
TEXT(x, y, "Fr")
y = y + 30
TEXT(x, y, "Sa")
y = y + 30
TEXT(x, y, "Su")
y = y + 100
NEXT
x = l + 100: y = t -30
day=@MON(x, y, "January",day, 31)
dv = 28
IF v = 1 THEN dv = 29 ENDIF
day=@MON(x+340,y,"February",day,dv)
day=@MON(x+680,y,"March",day,31)
day=@MON(x+1020,y,"April",day,30)
day=@MON(x,y+280, "May",day, 31)
day=@MON(x+340,y+280,"June",day,30)
day=@MON(x+680,y+280,"July",day,31)
day=@MON(x+1020, y+280, "August",day, 31)
day=@MON(x,y+560,"September",day,30)
day=@MON(x+340,y+560,"October",day,31)
day=@MON(x+680,y+560,"November",day, 30)
day=@MON(x+1020,y+560,"December",day, 31)
RETURN
@MON(x1, y1, head, start, num)
FILL(1)
STYLE(1, 15)
TEXT(x1 + 60, y1, head)
days = 1
ln = start
y1 = y1 + 15
#lab1
IF days > num THEN GOTO lab2 ENDIF
#lab3
IF ln > 7 THEN GOTO lab4 ENDIF
IF days > num THEN GOTO lab2 ENDIF
@TEXT(x1, y1+30*ln, days)
days = days + 1
ln = ln + 1
GOTO lab3
#lab4
x1 = x1 + 50
ln = 1
GOTO lab1
#lab2
RETURN ln
@TEXT(x2, y2, number)
TEXT(x2, y2, number)
COLOR(15)
shift = 37
IF number < 10 THEN shift = 20 ENDIF
RECTANGLE(x2+shift,y2-35,x2+160,y2+30)
COLOR(0)
RETURN